home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)td.d64 / lottery.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  222 lines
  1. 10 POKE53280,0:POKE53281,0:CLOSE3:CLR
  2. 15 DIMPN(150),N$(25),PN$(25),DN(25):OPEN3,0
  3. 20 GOSUB5000
  4. 30 PRINT"1) LOTTARIO"
  5. 40 PRINT"2) LOTTO 649"
  6. 50 PRINT"3) WINTARIO"
  7. 55 PRINT"4) END"
  8. 60 PRINT"SELECT #:"
  9. 70 GETA$:IFA$=""THEN70
  10. 80 IFA$="1"THENHL=39:X=0:A$="LOTTARIO":GOTO160
  11. 90 IFA$="2"THENHL=49:X=1:A$="LOTTO 649":GOTO160
  12. 100 IFA$="3"THEN3050
  13. 105 IFA$="4"THENCLOSE3:PRINT"[147]":END
  14. 110 GOTO70
  15. 160 IFXTHENGOSUB1020:GOTO170
  16. 165 GOSUB960
  17. 170 PRINT""SPC(5)"1) ENTER NEW TICKET NUMBERS"
  18. 175 PRINTSPC(5)"2) ADD NUMBERS TO TICKET LIST"
  19. 180 PRINTSPC(5)"3) ENTER WINNING "A$" NUMBERS"
  20. 190 PRINTSPC(5)"SELECT #:"
  21. 200 GETS$:IFS$="1"THEN230
  22. 205 IFS$="2"THENGOSUB580:GOTO240
  23. 210 IFS$="3"THENGOSUB580:GOTO360
  24. 220 S$="":GOTO200
  25. 230 T=1:L=0
  26. 240 IFXTHENGOSUB1020:GOTO250
  27. 245 GOSUB960
  28. 250 PRINT""SPC(3)"TICKET PURCHASED BY:";:INPUT#3,N$(T):PRINT
  29. 260 PRINT""SPC(3)"ENTER TICKET NUMBERS:"
  30. 270 FORC=(L+1)TO(L+6)
  31. 280 PRINTSPC(22)"# ";:INPUT#3,PN(C):PRINT
  32. 290 IFPN(C)>HLTHENPN(C)=0:PRINT"[145][145]":GOTO280
  33. 300 NEXT
  34. 301 IFXTHEN310
  35. 305 PRINT""SPC(3)"ENTER DAY NUMBER OF TICKET PURCHASE:"
  36. 306 PRINT""SPC(6)"1) SUN  2) MON  3) TUES  4) WED"
  37. 307 PRINTSPC(10)"5) THUR  6) FRI  7) SAT"
  38. 308 GETS$:IFS$=""THEN308
  39. 309 DN(T)=VAL(S$):IFDN(T)<0ORDN(T)>7THEN308
  40. 310 PRINT""SPC(3)"['Q' - QUIT     'C' - CONTINUE]"
  41. 320 S$="":GETS$
  42. 330 IFS$="C"THENT=T+1:L=L+6:GOTO240
  43. 340 IFS$="Q"THEN490
  44. 350 GOTO320
  45. 360 IFXTHENGOSUB1020:GOTO370
  46. 365 GOSUB960
  47. 370 PRINTSPC(5)"ENTER WINNING NUMBERS:"
  48. 380 FORC=1TO6
  49. 390 PRINTSPC(24)C"[157]:";:INPUT#3,WN(C):PRINT
  50. 400 IFWN(C)>HLTHENWN(C)=0:PRINT"[145][145]":GOTO390
  51. 410 NEXT
  52. 420 PRINTSPC(5)"ENTER BONUS NUMBER:";:INPUT#3,BN:PRINT
  53. 430 IFBN>HLTHENBN=0:PRINT"[145][145]":GOTO420
  54. 435 IFXTHEN650
  55. 440 PRINTSPC(5)"ENTER EARLYBIRD NUMBERS:"
  56. 450 FORC=1TO4
  57. 460 PRINTSPC(26)C"[157]:";:INPUT#3,EB(C):PRINT
  58. 470 IFEB(C)>HLTHENEB(C)=0:PRINT"[145][145]":GOTO460
  59. 480 NEXT:GOTO650
  60. 490 OPEN15,8,15,"S0:"+A$
  61. 500 CLOSE15
  62. 510 OPEN5,8,5,"0:"+A$+",S,W"
  63. 520 T=1:L=0:Z$=CHR$(13)
  64. 530 IFN$(T)=""THENCLOSE5:RUN
  65. 540 PRINT#5,N$(T);Z$;
  66. 541 IFXTHEN550
  67. 542 PRINT#5,DN(T);Z$;
  68. 550 FORC=(L+1)TO(L+6)
  69. 560 PRINT#5,PN(C);Z$;
  70. 570 NEXTC:L=L+6:T=T+1:GOTO530
  71. 580 OPEN5,8,5,"0:"+A$+",S,R"
  72. 590 T=1:L=0
  73. 600 INPUT#5,N$(T)
  74. 601 IFXTHEN610
  75. 602 INPUT#5,DN(T)
  76. 610 FORC=(L+1)TO(L+6):INPUT#5,PN(C):NEXTC
  77. 620 T=T+1:L=L+6
  78. 630 IFSTTHENCLOSE5:RETURN
  79. 640 GOTO600
  80. 650 L=0:MCH=0:T=1:WBN=0:WEB=0
  81. 655 IFXTHENGOSUB1020:GOTO670
  82. 660 GOSUB960
  83. 670 PRINT""N$(T)"'S TICKET:"
  84. 680 FORA=1TO6
  85. 690 FORC=(L+1)TO(L+6)
  86. 700 IFWN(A)=PN(C)THENMCH=MCH+1
  87. 710 NEXTC:NEXTA
  88. 715 PRINT"TICKET #:";
  89. 720 FORC=(L+1)TO(L+6):PRINTPN(C);:NEXTC
  90. 725 PRINT
  91. 730 IF(MCH<5)OR(MCH>5)THEN765
  92. 740 FORC=(L+1)TO(L+6)
  93. 750 IFBN=PN(C)THENWBN=1
  94. 760 NEXT
  95. 765 IFXTHEN840
  96. 770 PRINT"EARLYBIRD DRAW:";
  97. 771 IFDN(T)>4THENPRINT"NOT ELIGIBLE":GOTO840
  98. 780 FORA=1TO4
  99. 790 FORC=(L+1)TO(L+6)
  100. 800 IFEB(A)=PN(C)THENWEB=WEB+1
  101. 810 NEXTC:NEXTA
  102. 820 IFWEB=4THENPRINT"EARLYBIRD WINNER":GOTO840
  103. 830 PRINT"NO EARLYBIRD PRIZE"
  104. 840 PRINT""N$(T)" HAS MATCHED"MCH"NUMBERS."
  105. 850 IFMCH=3THENPRINT"THIS TICKET WON 5TH PRIZE"
  106. 860 IFMCH=4THENPRINT"THIS TICKET WON 4TH PRIZE"
  107. 870 IF(MCH=5)AND(WBN=0)THENPRINT"THIS TICKET WON 3RD PRIZE"
  108. 880 IF(MCH=5)AND(WBN=1)THENPRINT"THIS TICKET WON 2ND PRIZE"
  109. 890 IFMCH=6THENPRINT"THIS TICKET WON THE JACKPOT[146]"
  110. 900 MCH=0:T=T+1:L=L+6:WBN=0:WEB=0
  111. 910 PRINT""SPC(5)"[PRESS <RETURN> TO CONTINUE]"
  112. 920 S$="":GETS$:IFS$=CHR$(13)THEN940
  113. 930 GOTO920
  114. 940 IFN$(T)=""THENRUN
  115. 950 GOTO660
  116. 960 PRINT"[147] [161]   [207][184][208] [184][208][183][184] [184][208][183][184] [207][184][208] [207][184][208] [207][184][208] [208][183] [207][184][208]"
  117. 980 PRINT" [180]   [180][160][170]  [170]    [170]   [204][185][186] [204][185][186] [204][185][186] [170]  [180] [170] "
  118. 990 PRINT" [180]   [180] [170]  [170]    [170]   [180] [170] [180][205]  [180][205]  [170]  [180] [170] "
  119. 1000 PRINT" [204][175][162] [204][185][186]  [170][180]   [170][180]  [161] [182] [161] [205] [161] [205] [186][175] [204][185][186] [151]"
  120. 1010 RETURN
  121. 1020 PRINT"[147]"SPC(3)"[180]   [207][184][208] [183][208][183][183] [183][208][183][183] [207][184][208]    [207][183][183] [180] [182] [207][183][208]"
  122. 1030 PRINTSPC(3)"[180]   [180][160][170]  [170]    [170]   [180] [170]    [180]   [180] [182] [204][175][186]"
  123. 1040 PRINTSPC(3)"[180]   [180] [170]  [170]    [170]   [180] [170]    [207][183][208] [204][175][186]   [170]"
  124. 1050 PRINTSPC(3)"[204][175][162] [204][185][186]  [170][180]   [170][180]  [204][185][186]    [204][175][186]   [182]  [185][186][151]"
  125. 1060 RETURN
  126. 2220 GOSUB4000:M=0:C=1:PRINT"ENTER GRAND PRIZE NUMBER:";:INPUT#3,A$:PRINT
  127. 2230 FORT=1TO3:PRINT"100,000 WINNING NUMBER -:";:INPUT#3,C$(T):PRINT:NEXT
  128. 2240 FORT=1TO2:PRINT"10,000 WINNING NUMBERS -:";:INPUT#3,D$(T):PRINT:NEXT
  129. 2250 PRINT"1,000 WINNING NUMBER ---:";:INPUT#3,E$:PRINT
  130. 2260 PRINT"$100 WINNING NUMBER ----:";:INPUT#3,F$:PRINT
  131. 2265 PRINT"SCRAMBLE NUMBER --------:";:INPUT#3,K$:PRINT
  132. 2270 PRINT"$10 WINNING NUMBER -----:";:INPUT#3,G$:PRINT
  133. 2280 PRINT"WIN'FALL NUMBER --------:";:INPUT#3,H$:PRINT
  134. 2290 PRINT"MYSTERY NUMBER ---------:";:INPUT#3,J$:PRINT
  135. 2291 PRINT"ARE ALL NUMBERS ENTERED CORRECTLY (Y/N)"
  136. 2292 S$="":GETS$:IFS$=""THEN2292
  137. 2293 IFS$="Y"THEN2310
  138. 2294 IFS$="N"THENRUN
  139. 2295 GOTO2292
  140. 2310 GOSUB4000:M=0:PRINT""N$(C)"'S TICKET"
  141. 2320 L$=MID$(A$,2):P$=MID$(PN$(C),2)
  142. 2330 IFA$=PN$(C)THENPRINT"YOU WON $200,000":M=1:GOTO2420
  143. 2340 IFL$=P$THENPRINT"YOU WON $25,000":M=1:GOTO2420
  144. 2350 FORT=5TO3STEP-1
  145. 2360 IFLEFT$(L$,T)=LEFT$(P$,T)THEN2780
  146. 2390 IFRIGHT$(L$,T)=RIGHT$(P$,T)THEN2780
  147. 2400 NEXT
  148. 2420 FORT=1TO3
  149. 2430 IFC$(T)=PN$(C)THENPRINT"YOU WON $100,000":M=1
  150. 2435 IFF$=MID$(P$,T,4)THENPRINT"YOU WON $100":M=1
  151. 2440 NEXT
  152. 2460 FORT=1TO2
  153. 2470 IFD$(T)=P$THENPRINT"YOU WON $10,000":M=1
  154. 2510 IFE$=MID$(P$,T,5)THENPRINT"YOU WON $1,000":M=1
  155. 2520 NEXT
  156. 2580 FORT=1TO4
  157. 2590 IFG$=MID$(P$,T,3)THENPRINT"YOU WON $10":M=1
  158. 2600 NEXT
  159. 2620 FORT=1TO5
  160. 2630 IFH$=MID$(P$,T,2)THENPRINT"YOU WON A BOOK OF TICKETS":M=1
  161. 2640 NEXT
  162. 2660 IFJ$=P$THENPRINT"YOU ARE A MYSTERY PRIZE WINNER":M=1
  163. 2680 Y=6:K1$=K$
  164. 2690 FORZ=1TOY:FORT=1TOY
  165. 2700 IFMID$(K1$,Z,1)=MID$(P$,T,1)THEN2740
  166. 2710 NEXTT:NEXTZ
  167. 2720 IFP$=""THENPRINT"YOU WON THE $50 SCRAMBLE PRIZE":M=1
  168. 2721 IFM=0THENPRINT"SORRY,THIS TICKET WINS NOTHING"
  169. 2725 PRINT""SPC(5)"[PRESS <RETURN> TO CONTINUE]"
  170. 2730 S$="":GETS$:IFS$=CHR$(13)THEN2733
  171. 2732 GOTO2730
  172. 2733 C=C+1
  173. 2735 IFN$(C)=""THENRUN
  174. 2736 GOTO2310
  175. 2740 P$=MID$(P$,1,T-1)+MID$(P$,T+1)
  176. 2750 K1$=MID$(K1$,1,Z-1)+MID$(K1$,Z+1)
  177. 2760 Y=Y-1:IFY=0THEN2720
  178. 2770 GOTO2690
  179. 2780 IFT=5THENPRINT"YOU WON $5000"
  180. 2790 IFT=4THENPRINT"YOU WON $100"
  181. 2800 IFT=3THENPRINT"YOU WON $10"
  182. 2805 M=1
  183. 2810 GOTO2420
  184. 2900 OPEN15,8,15,"S0:WINTARIO":CLOSE15
  185. 2910 OPEN5,8,5,"0:WINTARIO,S,W"
  186. 2920 Z$=CHR$(13):C=1
  187. 2930 IFN$(C)=""THENCLOSE5:RUN
  188. 2940 PRINT#5,N$(C);Z$;PN$(C);Z$;
  189. 2950 C=C+1:GOTO2930
  190. 2960 OPEN5,8,5,"0:WINTARIO,S,R"
  191. 2970 C=1
  192. 2980 INPUT#5,N$(C):INPUT#5,PN$(C)
  193. 2990 C=C+1:IFSTTHENCLOSE5:RETURN
  194. 3000 GOTO2980
  195. 3050 GOSUB4000:PRINT""SPC(4)"1) ENTER NEW TICKET NUMBER"
  196. 3060 PRINTSPC(4)"2) ADD TO TICKET LIST"
  197. 3070 PRINTSPC(4)"3) ENTER WINTARIO DRAW NUMBERS"
  198. 3080 S$="":GETS$:IFS$="1"THEN3200
  199. 3090 IFS$="2"THENGOSUB2960:GOTO3205
  200. 3100 IFS$="3"THENGOSUB2960:GOTO2220
  201. 3110 GOTO3080
  202. 3200 C=1
  203. 3205 GOSUB4000
  204. 3210 PRINT""SPC(3)"TICKET PURCHASED BY:";:INPUT#3,N$(C):PRINT
  205. 3220 PRINT""SPC(3)"ENTER TICKET NUMBER:";:INPUT#3,PN$(C):PRINT
  206. 3230 PRINT"":FORQ=1TO18:PRINT:NEXT
  207. 3240 PRINT""SPC(3)"['Q' - QUIT     'C' - CONTINUE]"
  208. 3250 S$="":GETS$:IFS$=""THEN3250
  209. 3270 IFS$="C"THENC=C+1:GOTO3205
  210. 3280 IFS$="Q"THEN2900
  211. 3290 GOTO3250
  212. 4000 PRINT"[147]"SPC(3)"[161]  [182][180][182] [182][205]  [161] [207][208][207][208] [170][207][183][208]  [207][184][208] [182]  [207][184][208]"
  213. 4010 PRINTSPC(3)"[181][167][181][182] [182] [182] [205] [181]  [170][180]  [170][180] [170]  [204][185][186] [182]  [180] [170]"
  214. 4020 PRINTSPC(3)"[181][167][165][182] [182] [182]  [205][181]  [170][180]  [170][207][183][208]  [180][205]  [182]  [180] [170]"
  215. 4030 PRINTSPC(3)"[205][206][205][206] [182][180][182][180]  [161]  [170][181]  [170][181] [170][180] [181] [205] [182][180] [204][185][186][151]"
  216. 4040 RETURN
  217. 5000 PRINT"[147] [181]    [207][184][184][208] [184][183][208][207][183][184] [184][183][208][207][183][184] [207][183][183][184] [207][184][184][208] [205]  [206]"
  218. 5010 PRINT" [181]    [180]  [170]   [170][180]     [170][180]   [204][185]   [204][185][185][186]  [205][206]"
  219. 5020 PRINT" [181]    [180]  [170]   [170][180]     [170][180]   [180]    [180] [205]   [170][180]"
  220. 5030 PRINT" [204][185][185][185] [204][185][185][186]   [170][181]     [170][181]   [204][175][175][185] [181]  [205]  [170][180][151]"
  221. 5040 RETURN
  222.